Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/frmshp10/dati_3.bas

BASIC Source File | 1998-10-06 | 15.7 KB | 508 lines

Attribute VB_Name = "Dati_3"
Option Explicit

'-----Data File

Sub FillData3()
 D(2002) = 724 : D(2003) = 577
 D(2004) = 724 : D(2005) = 578
 D(2006) = 725 : D(2007) = 577
 D(2008) = 725 : D(2009) = 576
 D(2010) = 726 : D(2011) = 576
 D(2012) = 727 : D(2013) = 575
 D(2014) = 727 : D(2015) = 576
 D(2016) = 728 : D(2017) = 575
 D(2018) = 728 : D(2019) = 574
 D(2020) = 729 : D(2021) = 573
 D(2022) = 729 : D(2023) = 574
 D(2024) = 730 : D(2025) = 573
 D(2026) = 731 : D(2027) = 572
 D(2028) = 731 : D(2029) = 573
 D(2030) = 732 : D(2031) = 572
 D(2032) = 732 : D(2033) = 571
 D(2034) = 733 : D(2035) = 571
 D(2036) = 734 : D(2037) = 570
 D(2038) = 734 : D(2039) = 571
 D(2040) = 735 : D(2041) = 570
 D(2042) = 735 : D(2043) = 569
 D(2044) = 736 : D(2045) = 568
 D(2046) = 736 : D(2047) = 569
 D(2048) = 737 : D(2049) = 568
 D(2050) = 738 : D(2051) = 567
 D(2052) = 738 : D(2053) = 568
 D(2054) = 739 : D(2055) = 567
 D(2056) = 739 : D(2057) = 566
 D(2058) = 740 : D(2059) = 565
 D(2060) = 740 : D(2061) = 566
 D(2062) = 741 : D(2063) = 565
 D(2064) = 741 : D(2065) = 564
 D(2066) = 742 : D(2067) = 563
 D(2068) = 742 : D(2069) = 564
 D(2070) = 743 : D(2071) = 563
 D(2072) = 744 : D(2073) = 562
 D(2074) = 744 : D(2075) = 563
 D(2076) = 745 : D(2077) = 562
 D(2078) = 745 : D(2079) = 561
 D(2080) = 746 : D(2081) = 560
 D(2082) = 746 : D(2083) = 561
 D(2084) = 747 : D(2085) = 560
 D(2086) = 747 : D(2087) = 559
 D(2088) = 748 : D(2089) = 558
 D(2090) = 748 : D(2091) = 559
 D(2092) = 749 : D(2093) = 558
 D(2094) = 749 : D(2095) = 557
 D(2096) = 750 : D(2097) = 556
 D(2098) = 750 : D(2099) = 557
 D(2100) = 751 : D(2101) = 556
 D(2102) = 751 : D(2103) = 555
 D(2104) = 752 : D(2105) = 554
 D(2106) = 752 : D(2107) = 555
 D(2108) = 753 : D(2109) = 554
 D(2110) = 754 : D(2111) = 553
 D(2112) = 754 : D(2113) = 554
 D(2114) = 755 : D(2115) = 553
 D(2116) = 755 : D(2117) = 552
 D(2118) = 756 : D(2119) = 551
 D(2120) = 756 : D(2121) = 552
 D(2122) = 757 : D(2123) = 551
 D(2124) = 757 : D(2125) = 550
 D(2126) = 758 : D(2127) = 549
 D(2128) = 758 : D(2129) = 550
 D(2130) = 759 : D(2131) = 549
 D(2132) = 759 : D(2133) = 548
 D(2134) = 760 : D(2135) = 547
 D(2136) = 760 : D(2137) = 548
 D(2138) = 761 : D(2139) = 547
 D(2140) = 761 : D(2141) = 546
 D(2142) = 762 : D(2143) = 545
 D(2144) = 762 : D(2145) = 546
 D(2146) = 763 : D(2147) = 545
 D(2148) = 763 : D(2149) = 544
 D(2150) = 764 : D(2151) = 543
 D(2152) = 764 : D(2153) = 544
 D(2154) = 765 : D(2155) = 543
 D(2156) = 765 : D(2157) = 542
 D(2158) = 766 : D(2159) = 541
 D(2160) = 766 : D(2161) = 540
 D(2162) = 767 : D(2163) = 539
 D(2164) = 767 : D(2165) = 540
 D(2166) = 768 : D(2167) = 539
 D(2168) = 768 : D(2169) = 538
 D(2170) = 769 : D(2171) = 537
 D(2172) = 769 : D(2173) = 538
 D(2174) = 770 : D(2175) = 537
 D(2176) = 770 : D(2177) = 536
 D(2178) = 771 : D(2179) = 535
 D(2180) = 771 : D(2181) = 536
 D(2182) = 772 : D(2183) = 535
 D(2184) = 772 : D(2185) = 534
 D(2186) = 773 : D(2187) = 533
 D(2188) = 773 : D(2189) = 534
 D(2190) = 774 : D(2191) = 533
 D(2192) = 774 : D(2193) = 532
 D(2194) = 775 : D(2195) = 531
 D(2196) = 775 : D(2197) = 532
 D(2198) = 776 : D(2199) = 531
 D(2200) = 776 : D(2201) = 530
 D(2202) = 776 : D(2203) = 529
 D(2204) = 777 : D(2205) = 528
 D(2206) = 777 : D(2207) = 529
 D(2208) = 778 : D(2209) = 528
 D(2210) = 778 : D(2211) = 527
 D(2212) = 779 : D(2213) = 526
 D(2214) = 779 : D(2215) = 527
 D(2216) = 780 : D(2217) = 526
 D(2218) = 780 : D(2219) = 525
 D(2220) = 780 : D(2221) = 524
 D(2222) = 781 : D(2223) = 523
 D(2224) = 781 : D(2225) = 524
 D(2226) = 782 : D(2227) = 523
 D(2228) = 782 : D(2229) = 522
 D(2230) = 783 : D(2231) = 521
 D(2232) = 783 : D(2233) = 522
 D(2234) = 784 : D(2235) = 521
 D(2236) = 784 : D(2237) = 520
 D(2238) = 784 : D(2239) = 519
 D(2240) = 785 : D(2241) = 518
 D(2242) = 785 : D(2243) = 519
 D(2244) = 786 : D(2245) = 518
 D(2246) = 786 : D(2247) = 517
 D(2248) = 787 : D(2249) = 516
 D(2250) = 787 : D(2251) = 517
 D(2252) = 788 : D(2253) = 516
 D(2254) = 788 : D(2255) = 515
 D(2256) = 788 : D(2257) = 514
 D(2258) = 789 : D(2259) = 513
 D(2260) = 789 : D(2261) = 514
 D(2262) = 790 : D(2263) = 513
 D(2264) = 790 : D(2265) = 512
 D(2266) = 791 : D(2267) = 511
 D(2268) = 791 : D(2269) = 510
 D(2270) = 792 : D(2271) = 509
 D(2272) = 792 : D(2273) = 508
 D(2274) = 793 : D(2275) = 507
 D(2276) = 793 : D(2277) = 506
 D(2278) = 794 : D(2279) = 505
 D(2280) = 794 : D(2281) = 504
 D(2282) = 795 : D(2283) = 503
 D(2284) = 795 : D(2285) = 502
 D(2286) = 796 : D(2287) = 501
 D(2288) = 796 : D(2289) = 502
 D(2290) = 797 : D(2291) = 501
 D(2292) = 797 : D(2293) = 500
 D(2294) = 797 : D(2295) = 499
 D(2296) = 798 : D(2297) = 498
 D(2298) = 798 : D(2299) = 497
 D(2300) = 799 : D(2301) = 496
 D(2302) = 799 : D(2303) = 495
 D(2304) = 800 : D(2305) = 494
 D(2306) = 800 : D(2307) = 493
 D(2308) = 801 : D(2309) = 492
 D(2310) = 801 : D(2311) = 491
 D(2312) = 802 : D(2313) = 490
 D(2314) = 802 : D(2315) = 489
 D(2316) = 803 : D(2317) = 488
 D(2318) = 803 : D(2319) = 487
 D(2320) = 804 : D(2321) = 486
 D(2322) = 804 : D(2323) = 485
 D(2324) = 804 : D(2325) = 484
 D(2326) = 805 : D(2327) = 483
 D(2328) = 805 : D(2329) = 482
 D(2330) = 805 : D(2331) = 481
 D(2332) = 806 : D(2333) = 480
 D(2334) = 806 : D(2335) = 479
 D(2336) = 807 : D(2337) = 478
 D(2338) = 807 : D(2339) = 477
 D(2340) = 807 : D(2341) = 476
 D(2342) = 808 : D(2343) = 475
 D(2344) = 808 : D(2345) = 474
 D(2346) = 809 : D(2347) = 473
 D(2348) = 809 : D(2349) = 472
 D(2350) = 809 : D(2351) = 471
 D(2352) = 810 : D(2353) = 470
 D(2354) = 810 : D(2355) = 469
 D(2356) = 810 : D(2357) = 468
 D(2358) = 811 : D(2359) = 467
 D(2360) = 811 : D(2361) = 466
 D(2362) = 812 : D(2363) = 465
 D(2364) = 812 : D(2365) = 464
 D(2366) = 812 : D(2367) = 463
 D(2368) = 812 : D(2369) = 462
 D(2370) = 813 : D(2371) = 461
 D(2372) = 813 : D(2373) = 460
 D(2374) = 813 : D(2375) = 459
 D(2376) = 813 : D(2377) = 458
 D(2378) = 813 : D(2379) = 457
 D(2380) = 814 : D(2381) = 456
 D(2382) = 814 : D(2383) = 455
 D(2384) = 814 : D(2385) = 454
 D(2386) = 814 : D(2387) = 453
 D(2388) = 814 : D(2389) = 452
 D(2390) = 815 : D(2391) = 451
 D(2392) = 815 : D(2393) = 450
 D(2394) = 815 : D(2395) = 449
 D(2396) = 815 : D(2397) = 448
 D(2398) = 816 : D(2399) = 447
 D(2400) = 816 : D(2401) = 446
 D(2402) = 816 : D(2403) = 445
 D(2404) = 816 : D(2405) = 444
 D(2406) = 816 : D(2407) = 443
 D(2408) = 817 : D(2409) = 442
 D(2410) = 817 : D(2411) = 441
 D(2412) = 817 : D(2413) = 440
 D(2414) = 817 : D(2415) = 439
 D(2416) = 817 : D(2417) = 438
 D(2418) = 818 : D(2419) = 437
 D(2420) = 818 : D(2421) = 436
 D(2422) = 818 : D(2423) = 435
 D(2424) = 818 : D(2425) = 434
 D(2426) = 818 : D(2427) = 433
 D(2428) = 818 : D(2429) = 432
 D(2430) = 818 : D(2431) = 431
 D(2432) = 818 : D(2433) = 430
 D(2434) = 818 : D(2435) = 429
 D(2436) = 818 : D(2437) = 428
 D(2438) = 818 : D(2439) = 427
 D(2440) = 819 : D(2441) = 426
 D(2442) = 819 : D(2443) = 425
 D(2444) = 819 : D(2445) = 424
 D(2446) = 819 : D(2447) = 423
 D(2448) = 819 : D(2449) = 422
 D(2450) = 819 : D(2451) = 421
 D(2452) = 819 : D(2453) = 420
 D(2454) = 819 : D(2455) = 419
 D(2456) = 819 : D(2457) = 418
 D(2458) = 819 : D(2459) = 417
 D(2460) = 819 : D(2461) = 416
 D(2462) = 819 : D(2463) = 415
 D(2464) = 819 : D(2465) = 414
 D(2466) = 819 : D(2467) = 413
 D(2468) = 819 : D(2469) = 412
 D(2470) = 819 : D(2471) = 411
 D(2472) = 820 : D(2473) = 410
 D(2474) = 820 : D(2475) = 409
 D(2476) = 820 : D(2477) = 408
 D(2478) = 820 : D(2479) = 407
 D(2480) = 820 : D(2481) = 406
 D(2482) = 820 : D(2483) = 405
 D(2484) = 820 : D(2485) = 404
 D(2486) = 820 : D(2487) = 403
 D(2488) = 820 : D(2489) = 402
 D(2490) = 820 : D(2491) = 401
 D(2492) = 820 : D(2493) = 400
 D(2494) = 819 : D(2495) = 399
 D(2496) = 819 : D(2497) = 398
 D(2498) = 819 : D(2499) = 397
 D(2500) = 819 : D(2501) = 396
 D(2502) = 819 : D(2503) = 395
 D(2504) = 819 : D(2505) = 394
 D(2506) = 819 : D(2507) = 393
 D(2508) = 819 : D(2509) = 392
 D(2510) = 819 : D(2511) = 391
 D(2512) = 819 : D(2513) = 390
 D(2514) = 818 : D(2515) = 389
 D(2516) = 818 : D(2517) = 388
 D(2518) = 818 : D(2519) = 387
 D(2520) = 818 : D(2521) = 386
 D(2522) = 818 : D(2523) = 385
 D(2524) = 818 : D(2525) = 384
 D(2526) = 818 : D(2527) = 383
 D(2528) = 818 : D(2529) = 382
 D(2530) = 818 : D(2531) = 381
 D(2532) = 818 : D(2533) = 380
 D(2534) = 817 : D(2535) = 379
 D(2536) = 817 : D(2537) = 378
 D(2538) = 817 : D(2539) = 377
 D(2540) = 817 : D(2541) = 376
 D(2542) = 817 : D(2543) = 375
 D(2544) = 817 : D(2545) = 374
 D(2546) = 816 : D(2547) = 373
 D(2548) = 816 : D(2549) = 372
 D(2550) = 816 : D(2551) = 371
 D(2552) = 815 : D(2553) = 370
 D(2554) = 815 : D(2555) = 369
 D(2556) = 815 : D(2557) = 368
 D(2558) = 814 : D(2559) = 367
 D(2560) = 814 : D(2561) = 366
 D(2562) = 814 : D(2563) = 365
 D(2564) = 813 : D(2565) = 364
 D(2566) = 813 : D(2567) = 363
 D(2568) = 813 : D(2569) = 362
 D(2570) = 813 : D(2571) = 361
 D(2572) = 812 : D(2573) = 360
 D(2574) = 812 : D(2575) = 359
 D(2576) = 812 : D(2577) = 358
 D(2578) = 811 : D(2579) = 357
 D(2580) = 811 : D(2581) = 356
 D(2582) = 811 : D(2583) = 355
 D(2584) = 810 : D(2585) = 354
 D(2586) = 810 : D(2587) = 353
 D(2588) = 810 : D(2589) = 352
 D(2590) = 809 : D(2591) = 351
 D(2592) = 809 : D(2593) = 350
 D(2594) = 809 : D(2595) = 349
 D(2596) = 808 : D(2597) = 348
 D(2598) = 808 : D(2599) = 347
 D(2600) = 807 : D(2601) = 346
 D(2602) = 807 : D(2603) = 345
 D(2604) = 806 : D(2605) = 344
 D(2606) = 806 : D(2607) = 343
 D(2608) = 805 : D(2609) = 342
 D(2610) = 805 : D(2611) = 341
 D(2612) = 804 : D(2613) = 340
 D(2614) = 804 : D(2615) = 339
 D(2616) = 803 : D(2617) = 338
 D(2618) = 803 : D(2619) = 337
 D(2620) = 802 : D(2621) = 336
 D(2622) = 802 : D(2623) = 335
 D(2624) = 801 : D(2625) = 334
 D(2626) = 800 : D(2627) = 333
 D(2628) = 800 : D(2629) = 332
 D(2630) = 799 : D(2631) = 331
 D(2632) = 799 : D(2633) = 330
 D(2634) = 798 : D(2635) = 329
 D(2636) = 798 : D(2637) = 328
 D(2638) = 797 : D(2639) = 327
 D(2640) = 797 : D(2641) = 326
 D(2642) = 796 : D(2643) = 325
 D(2644) = 796 : D(2645) = 324
 D(2646) = 795 : D(2647) = 323
 D(2648) = 794 : D(2649) = 322
 D(2650) = 793 : D(2651) = 321
 D(2652) = 793 : D(2653) = 320
 D(2654) = 792 : D(2655) = 319
 D(2656) = 791 : D(2657) = 318
 D(2658) = 790 : D(2659) = 317
 D(2660) = 789 : D(2661) = 316
 D(2662) = 788 : D(2663) = 315
 D(2664) = 788 : D(2665) = 314
 D(2666) = 787 : D(2667) = 313
 D(2668) = 786 : D(2669) = 312
 D(2670) = 785 : D(2671) = 311
 D(2672) = 784 : D(2673) = 310
 D(2674) = 784 : D(2675) = 309
 D(2676) = 783 : D(2677) = 308
 D(2678) = 782 : D(2679) = 307
 D(2680) = 781 : D(2681) = 306
 D(2682) = 780 : D(2683) = 305
 D(2684) = 779 : D(2685) = 304
 D(2686) = 779 : D(2687) = 303
 D(2688) = 778 : D(2689) = 302
 D(2690) = 777 : D(2691) = 301
 D(2692) = 776 : D(2693) = 300
 D(2694) = 775 : D(2695) = 299
 D(2696) = 774 : D(2697) = 298
 D(2698) = 773 : D(2699) = 297
 D(2700) = 772 : D(2701) = 296
 D(2702) = 771 : D(2703) = 295
 D(2704) = 770 : D(2705) = 294
 D(2706) = 769 : D(2707) = 293
 D(2708) = 768 : D(2709) = 293
 D(2710) = 767 : D(2711) = 292
 D(2712) = 766 : D(2713) = 291
 D(2714) = 765 : D(2715) = 290
 D(2716) = 764 : D(2717) = 289
 D(2718) = 763 : D(2719) = 289
 D(2720) = 762 : D(2721) = 288
 D(2722) = 761 : D(2723) = 287
 D(2724) = 760 : D(2725) = 286
 D(2726) = 759 : D(2727) = 285
 D(2728) = 758 : D(2729) = 284
 D(2730) = 757 : D(2731) = 284
 D(2732) = 756 : D(2733) = 283
 D(2734) = 755 : D(2735) = 282
 D(2736) = 754 : D(2737) = 281
 D(2738) = 753 : D(2739) = 281
 D(2740) = 752 : D(2741) = 280
 D(2742) = 751 : D(2743) = 280
 D(2744) = 750 : D(2745) = 279
 D(2746) = 749 : D(2747) = 279
 D(2748) = 748 : D(2749) = 278
 D(2750) = 747 : D(2751) = 278
 D(2752) = 746 : D(2753) = 277
 D(2754) = 745 : D(2755) = 277
 D(2756) = 744 : D(2757) = 276
 D(2758) = 743 : D(2759) = 276
 D(2760) = 742 : D(2761) = 275
 D(2762) = 741 : D(2763) = 274
 D(2764) = 740 : D(2765) = 274
 D(2766) = 739 : D(2767) = 273
 D(2768) = 738 : D(2769) = 273
 D(2770) = 737 : D(2771) = 272
 D(2772) = 736 : D(2773) = 272
 D(2774) = 735 : D(2775) = 271
 D(2776) = 734 : D(2777) = 271
 D(2778) = 733 : D(2779) = 270
 D(2780) = 732 : D(2781) = 270
 D(2782) = 731 : D(2783) = 269
 D(2784) = 730 : D(2785) = 269
 D(2786) = 729 : D(2787) = 268
 D(2788) = 728 : D(2789) = 268
 D(2790) = 727 : D(2791) = 268
 D(2792) = 726 : D(2793) = 267
 D(2794) = 725 : D(2795) = 267
 D(2796) = 724 : D(2797) = 267
 D(2798) = 723 : D(2799) = 266
 D(2800) = 722 : D(2801) = 266
 D(2802) = 721 : D(2803) = 266
 D(2804) = 720 : D(2805) = 265
 D(2806) = 719 : D(2807) = 265
 D(2808) = 718 : D(2809) = 265
 D(2810) = 717 : D(2811) = 265
 D(2812) = 716 : D(2813) = 264
 D(2814) = 715 : D(2815) = 264
 D(2816) = 714 : D(2817) = 264
 D(2818) = 713 : D(2819) = 263
 D(2820) = 712 : D(2821) = 263
 D(2822) = 711 : D(2823) = 263
 D(2824) = 710 : D(2825) = 262
 D(2826) = 709 : D(2827) = 262
 D(2828) = 708 : D(2829) = 262
 D(2830) = 707 : D(2831) = 261
 D(2832) = 706 : D(2833) = 261
 D(2834) = 705 : D(2835) = 261
 D(2836) = 704 : D(2837) = 261
 D(2838) = 703 : D(2839) = 260
 D(2840) = 702 : D(2841) = 260
 D(2842) = 701 : D(2843) = 260
 D(2844) = 700 : D(2845) = 260
 D(2846) = 699 : D(2847) = 260
 D(2848) = 698 : D(2849) = 259
 D(2850) = 697 : D(2851) = 259
 D(2852) = 696 : D(2853) = 259
 D(2854) = 695 : D(2855) = 259
 D(2856) = 694 : D(2857) = 259
 D(2858) = 693 : D(2859) = 259
 D(2860) = 692 : D(2861) = 259
 D(2862) = 691 : D(2863) = 259
 D(2864) = 690 : D(2865) = 259
 D(2866) = 689 : D(2867) = 259
 D(2868) = 688 : D(2869) = 258
 D(2870) = 687 : D(2871) = 258
 D(2872) = 686 : D(2873) = 258
 D(2874) = 685 : D(2875) = 258
 D(2876) = 684 : D(2877) = 258
 D(2878) = 683 : D(2879) = 258
 D(2880) = 682 : D(2881) = 258
 D(2882) = 681 : D(2883) = 258
 D(2884) = 680 : D(2885) = 258
 D(2886) = 679 : D(2887) = 258
 D(2888) = 678 : D(2889) = 258
 D(2890) = 677 : D(2891) = 258
 D(2892) = 676 : D(2893) = 258
 D(2894) = 675 : D(2895) = 258
 D(2896) = 674 : D(2897) = 258
 D(2898) = 673 : D(2899) = 258
 D(2900) = 672 : D(2901) = 258
 D(2902) = 671 : D(2903) = 258
 D(2904) = 670 : D(2905) = 258
 D(2906) = 669 : D(2907) = 258
 D(2908) = 668 : D(2909) = 258
 D(2910) = 667 : D(2911) = 258
 D(2912) = 666 : D(2913) = 258
 D(2914) = 665 : D(2915) = 258
 D(2916) = 664 : D(2917) = 258
 D(2918) = 663 : D(2919) = 258
 D(2920) = 662 : D(2921) = 258
 D(2922) = 661 : D(2923) = 258
 D(2924) = 660 : D(2925) = 259
 D(2926) = 659 : D(2927) = 259
 D(2928) = 658 : D(2929) = 259
 D(2930) = 657 : D(2931) = 259
 D(2932) = 656 : D(2933) = 259
 D(2934) = 655 : D(2935) = 259
 D(2936) = 654 : D(2937) = 259
 D(2938) = 653 : D(2939) = 259
 D(2940) = 652 : D(2941) = 259
 D(2942) = 651 : D(2943) = 259
 D(2944) = 650 : D(2945) = 260
 D(2946) = 649 : D(2947) = 260
 D(2948) = 648 : D(2949) = 260
 D(2950) = 647 : D(2951) = 260
 D(2952) = 646 : D(2953) = 260
 D(2954) = 645 : D(2955) = 260
 D(2956) = 644 : D(2957) = 261
 D(2958) = 643 : D(2959) = 261
 D(2960) = 642 : D(2961) = 261
 D(2962) = 641 : D(2963) = 261
 D(2964) = 640 : D(2965) = 262
 D(2966) = 639 : D(2967) = 262
 D(2968) = 638 : D(2969) = 262
 D(2970) = 637 : D(2971) = 263
 D(2972) = 636 : D(2973) = 263
 D(2974) = 635 : D(2975) = 263
 D(2976) = 634 : D(2977) = 264
 D(2978) = 633 : D(2979) = 264
 D(2980) = 632 : D(2981) = 264
 D(2982) = 631 : D(2983) = 265
 D(2984) = 630 : D(2985) = 265
 D(2986) = 629 : D(2987) = 265
 D(2988) = 628 : D(2989) = 266
 D(2990) = 627 : D(2991) = 266
 D(2992) = 626 : D(2993) = 266
 D(2994) = 625 : D(2995) = 267
 D(2996) = 624 : D(2997) = 267
 D(2998) = 623 : D(2999) = 267
 D(3000) = 622 : D(3001) = 268
End Sub